Μιγαδικοί

Επειδή το WLJS δεν υποστηρίζει όλα τα PlotTheme του Mathematica, υπάρχει η λύση του MMAView για όσους δουλεύουν στο WLJS. Συγκεκριμένα, ενώ επί παραδείγματι το παρακάτω δεν εμφάνιζε κάτι:

Plot[f[x], {x, -8, 8}, PlotTheme -> "Marketing"]

γράφοντας τελικά:

Plot[f[x], {x, -8, 8}, PlotTheme -> "Marketing"]//MMAView

εμφανίζεται το γράφημα όπως ακριβώς το παράγει το Mathematica.

Για να μην προκύψουν παρανοήσεις σχετικά με τις εντολές της γλώσσας Wolfram, θα εφαρμόσουμε καθολικά το MMAView.

Unprotect[Graphics3D];
Graphics3D /: MMAView[Graphics3D[args__, opts: OptionsPattern[] ] ] = .;
Unprotect[ToString];
ToString[expr: _[__], StandardForm] := With[{view = MMAView[expr]}, ExportString[
    StringReplace[
        (view // ToBoxes) /. {RowBox->RowBoxFlatten} // ToString
    , {"\[NoBreak]"->""}]
, "String"]];
Protect[ToString];

Γραφικές παραστάσεις μιγαδικών

Clear["Global`*"]
f[z_] := z^2 - z
ComplexPlot3D[f[z], {z, -2 - 10  I, 2 + 10  I}, PlotLegends -> Automatic]
Plot
ComplexPlot[f[z] , {z, -6 - 10 I, 6 + 10 I}, PlotLegends -> Automatic]

ComplexPlot[f[z] , {z, -6 - 10 I, 6 + 10 I}, PlotLegends -> Automatic, Mesh -> Automatic, MeshFunctions -> { Re[#2] &,  Im[#2] &}, MeshStyle -> { White, Black}]
Plot
Plot

Προς το παρόν η παρακάτω εντολή δεν παίζει στο WLJS.

ComplexPlot[f[x], {x, -1 - I, 1 + I}, RegionFunction -> Function[{z}, Abs[z] <= 1], Background -> LightGray, PlotLegends -> Automatic, PlotLabel -> "λ=2.8, x0=0.1", ImageSize -> Medium, Mesh -> 50, MeshFunctions -> { Re[#2] &, Im[#2] &}, MeshStyle -> { White, Black}, PlotPoints -> 200, MaxRecursion -> 4]

Φράκταλ

Clear["Global`*"]
MandelbrotSetPlot[PlotLegends->Automatic]
Plot
Clear["Global`*"]
r=10/9;
th=Pi/3;
la=r*(Cos[th]+I*Sin[th]);
JuliaSetPlot[la*(1-z)*z,z,PlotLegends->Automatic]
Plot